home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
fb386
/
demo
/
kushida
/
68.bas
next >
Wrap
BASIC Source File
|
1995-02-09
|
7KB
|
143 lines
10 PLAY OFF
20 LOAD@ "ED02.FMB" : LOAD@ "ED06.PMB"
30 CLS 1:COLOR 5:PRINT "JAZZY FOR VOYAGER":PRINT "written TAKAO KUSHIDA"
40 S$="%CQ8T130" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
50 '
60 '
70 '
80 AL$="@39V6O4L16U100Q4%R5" : AR$=AL$+"U-50%L5"
90 A1L$=AL$+"RRAR! RARR AR>E<RRRRR ARRA R!RAR @44<A R>AR @39<AR>AR Q8"
100 A1R$=AR$+"RRAR! RARR AR>E<RRRRR ERRE R!RER @44<A R>AR @39<ER>ER Q8"
110 A1E$=AL$+"RRAR! RARR AR>A<RR!RAR ARR!A RRAR @44<A RE@45E G>G<G8 Q8"
120 A1F$=AR$+"RRAR! RARR AR>A<RR!RAR ERR!E RRER @44<A RE@45E G>G<G8 Q8"
130 A1G$=AL$+"RRAR! RARR @58AR@39AR @59<ARRA RRA@39RRARRER@6[[AG]]@59EQ8"
140 A1H$=AR$+"RRAR! RARR @58AR@39AR @59<ARRA RRA@39RRARRER@6[[AG]]@59EQ8"
150 A2L$=AL$+" <RARR>DRR<D> RRRRRRE<G ARF#RRGRR >CRRCR<F#>CR Q8"
160 A2R$=AR$+" <RARR>DRR<D> RRRRRRE<G ARF#RRGRR >CRRCR<F#>CR Q8"
170 A2E$=AL$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U100 RRF#8(>ER<E8[)3"
180 A2F$=AR$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U-50 RRF#8(>ER<E8[)3"
190 A2C$=AL$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U100 RRF#8(>GR<G8[)3"
200 A2D$=AR$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U-50 RRF#8(>GR<G8[)3"
210 A2G$=AL$+"@58U100Q1 RRRRGRRR RRRGRRRR RRRGRRR RRRGRRGRR Q8"
220 A2H$=AR$+"@58U-50Q1 RRRRGRRR RRRGRRRR RRRGRRR RRRGRRGRR Q8"
230 A2I$=AL$+"@58U100Q1 RRRRGRRR RRRGRRRR Q8"
240 A2J$=AR$+"@58U-50Q1 RRRRGRRR RRRGRRRR Q8"
250 A3L$=AL$+"@44U100Q1<<RRRRRRAR RERR>EGAR >C<RRRRRER RF#RRGRRR Q8"
260 A3R$=AR$+"@44U-50Q1<<RRRRRRAR RERR>EGAR >C<RRRRRER RF#RRGRRR Q8"
270 A3E$=AL$+"@44U100Q1<<ARRBRRAR RERR>EGAR >C<RRC>CCRR RF#RRGRRR Q8"
280 A3F$=AR$+"@44U-50Q1<<ARRBRRAR RERR>EGAR >C<RRC>CCRR RF#RRGRRR Q8"
290 '
300 C$="@86V9O3L16Q3"
310 C11$=C$+" GRRRGRRRGRGRRR ERRRERERRRERRRER FR Q8"
320 C12$=C$+" ERRRERRRERERRR CRRRCRCRRRCRRRCR DR Q8"
330 C13$=C$+" CRRRCRRRCRCRRR <BRRRBRBRRRBRRRBR GR Q8"
340 C14$=C$+"<ARRRARRRARARRR GRRRGRGRRRGRRRGR ER Q8"
350 C15$=C$+" GRRRGRRRGRGRRR ERRRERERRRERRRER DR Q8"
360 C16$=C$+" ERRRERRRERERRR CRRRCRCRRRCRRRCR<BR Q8"
370 C17$=C$+" CRRRCRRRCRCRRR <BRRRBRBRRRBRRRBR GR Q8"
380 C18$=C$+"<ARRRARRRARARRR GRRRGRGRRRGRRRGR ER Q8"
390 C21$=C$+" ERRRERRRERERRR DRRRDRQ8[[D4CRRRBRRR"
400 C22$=C$+" CRRRCRRRCRCRRR <BRRRBRQ8[[B4ARRRBRRR"
410 C23$=C$+"<ARRRARRRARARRR GRRRGRQ8[[G4GRRRGRRR"
420 C24$=C$+"<FRRRFRRRFRFRRR ERRRERQ8[[E4ERRRERRR"
430 C25$=C$+" ERRRERRRERERRR ERRRERERRRERRRERFR Q8"
440 C26$=C$+" CRRRCRRRCRCRRR CRRRCRCRRRCRRRCRDR Q8"
450 C27$=C$+"<ARRRARRRARARRR BRRRBRBRRRBRRRBRBR Q8"
460 C28$=C$+"<FRRRFRRRFRFRRR GRRRGRGRRRGRRRGRGR Q8"
470 C31$=C$+" [[E"
480 C32$=C$+" [[C"
490 C33$=C$+"<[[A"
500 C34$=C$+"<[[F"
510 C3L$="(@45V6O2L16Q4U100 RE8G8&GGRRRGR @44U100ARRR)"
520 C3R$="(@45V6O2L16Q4U-50 RE8G8&GGRRRGR @44U-50ARRR)"
530 C4L$="@45V6O2L16Q4U100 A4A8&AAGRG4GR (RF#8)RD GRGRGF#GR Q8"
540 C4R$="@45V6O2L16Q4U-50 A4A8&AAGRG4GR (RF#8)RD GRGRGF#GR Q8"
550 C4E$="@111V7O3L16Q2U100 ARRARRAR RAR<A>ARAE ARRARRAR RAR<A>ARAR Q8"
560 C4F$="@111V3O3L16Q2U-50R ARRARRAR RAR<A>ARAE ARRARRAR RAR<A>ARA Q8"
570 C4G$="@111V7O3L16Q2U100 ARRARRAR RAR<A>ARAE A Q8"
580 C4H$="@111V3O3L16Q2U-50R ARRARRAR RAR<A>ARAE A Q8"
590 E1$ ="@60V6O3L16 AR<A>ARR>A<A8A<A>AR>A<E8 D8>DE<G>G<A>A 8<EGR A8>A8"
600 E1E$="@60V6O3L16 AR<A>ARR>A<A8A<A>AR>A<E8 D8RR R4R2 "
610 E2$ ="@58V6O3L16Q1 (R4%R5ARRR RR%C@59<E>%L5@58AR%C@5<C>%R@58AR)Q8%C"
620 E2E$="@58V6O3L16Q1 R4%R5ARRR RR%C@59<E>%L5@58AR%C@5<C>%R@58AR Q8%C"
630 B1$= "@10V8O2L16 ARRRE4]D#R[E8F#8GR ARRRE8&EG#]D#R[E8F#8GR"
640 B1E$="@77V8O1L16Q4 GRG8>G<Q8G8&GF#8>F#<EREA8 CRC#8CG8&GF#8>C<EREF#8"
650 B1F$="@10V8O2L16 R8ERA4G8&GF#8&F#G8 F#RE8G8A8G8&GF#8&F#G8"
660 B1G$="@10V8O2L16 R8ERA4G8&GF#8&F#G8 F#RR8R8R8R4 G#RG#R"
670 '
680 P1$= "@6 V13O0L24 C4C4 C4C4 CRRRRRCRRRRR CRRRRRCRRRRR "
690 S1$= "@6 V13O0L24 C4C4 C4C4 CRRRRRRRRRRR RRRRRRRRRRRR "
700 Q1$= "@9 V7 O1L16 CRRCRRCR RRCRRRRC32C32 CRCRRRCR RRCRRRCR"
710 P2$= "@12V10O4L24 R4C4 R4C4 RRRRRRCRRRRC RRRRRRC8V4CRC"
720 Q2$= "@12V10O4L24 R4C4 R4C4 RRRRRRCRRRRR RRCRRRC8V4CRC"
730 S2$= "@12V10O4L24 R4C4 R4C4 "
740 P3$= "@6 V3 O7L24 (RRRRRC)3 R4 RRRRRCRRRRRC RCRRRCRRRRRR"
750 S3$= "@6 V3 O7L24 (RRRRRC)3 R4 "
760 P4$= "@7 V3 O1L24 RRRG4GR>C RRG<G4GRG RRGRRERRRGR>C RRG<GRRCRRGRR"
770 S4$= "@7 V3 O1L24 RRRG4GR>C RRG<G4GRG "
780 P5$= "@1 V6 O1L16 RRBRR!BRR BRRRBRBR RRBRRBRR RBRRBRBR"
790 Q5$= "@1 V6 O1L16 RRBRR!BRR BRRRBRBR RBBRRBRB RBBRBRBR"
800 P6$= "@8 V3 O5L16 RRCRCRCR RRCRRCRR CRRRCRCR RCR<<G>>RRCR"
810 BP1$="@1 V7 O5L24 R1 R2RRR%R9CR%L9C %C@8]]<G4"
820 BP2$="@7 V3 O4L16 <G>GR<C>CR<D>D <G"
830 SP1$="@11V5 O2L16 %R5C4%L5C4 R2 R2@12O6[[ %L5C4%R5C4"
840 '
850 'PLAY C11$,C12$,C13$,C14$ : END
860 'PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$ : END
870 'PLAY ,E2$,,,,,P1$,P4$,P6$,SP1$ :END
880 'GOTO 1290
890 '
900 PLAY C11$,C12$,C13$,C14$
910 PLAY C11$,C12$,C13$,C14$
920 PLAY C11$,C12$,C13$,C14$
930 PLAY C15$,C16$,C17$,C18$
940 PLAY C25$,C26$,C27$,C28$,,,P2$,P3$
950 PLAY C25$,C26$,C27$,C28$,,,Q2$,P3$
960 PLAY C21$,C22$,C23$,C24$,,,P2$,P3$,P4$
970 PLAY C25$,C26$,C27$,C28$,,,S2$,S3$,S4$
980 PLAY C11$,C12$,C13$,C14$,A1L$,A1R$,P1$,P2$,P3$,P4$
990 PLAY C15$,C16$,C17$,C18$,A1E$,A1F$,P1$,Q2$,P3$,P4$
1000 PLAY C21$,C22$,C23$,C24$,A1L$,A1R$,P1$,P2$,P3$,P4$
1010 PLAY C25$,C26$,C27$,C28$,A1G$,A1H$,S1$,S2$,S3$,S4$
1020 PLAY B1$,E1$,C3L$,C3R$,A1L$,A1R$,P1$,P2$,P3$,P4$
1030 PLAY B1$,E1$,C3L$,C3R$,A1E$,A1F$,P1$,Q2$,P3$,P4$
1040 PLAY B1$,E1$,C3L$,C3R$,A1L$,A1R$,P1$,P2$,P3$,P4$
1050 PLAY B1$,E1$,C3L$,C3R$,A1G$,A1H$,S1$,S2$,S3$,S4$
1060 PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$
1070 PLAY B1$,E2$,C4E$,C4F$,A3E$,A3F$,P1$,P4$
1080 PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$
1090 PLAY B1$,E2$,C4G$,C4H$,A3E$,A3F$,S1$,S4$,BP1$
1100 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,P2$,P3$,P5$
1110 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,Q2$,P3$,Q5$
1120 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,P2$,P3$,P5$
1130 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,Q2$,P3$,Q5$
1140 PLAY B1F$,E1$ ,C4L$,C4R$,A2E$,A2F$,Q1$,P2$,P3$,P5$,P6$
1150 PLAY B1F$,E1$ ,C4L$,C4R$,A2C$,A2D$,Q1$,Q2$,P3$,Q5$,P6$
1160 PLAY B1F$,E1$ ,C4L$,C4R$,A2E$,A2F$,Q1$,P2$,P3$,P5$,P6$
1170 PLAY B1G$,E1E$,C4L$,C4R$,A2C$,A2D$,Q1$,S2$,S3$,Q5$,P6$
1180 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
1190 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
1200 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
1210 PLAY ,E1$ ,C4G$,C4H$,A2I$,A2J$,S3$,S4$,P6$
1220 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
1230 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
1240 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
1250 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
1260 PLAY , ,,,A2G$,A2H$,P1$, , ,P4$,P6$,SP1$
1270 PLAY , ,,,A2G$,A2H$,P1$, , ,P4$,P6$
1280 PLAY , ,,,A2G$,A2H$,P1$,P2$,P3$,P4$,P6$,SP1$
1290 PLAY , ,,,A2I$,A2J$,S1$,S2$,S3$,S4$, ,BP2$
1300 '
1310 PLAY C11$,C12$,C13$,C14$
1320 PLAY C15$,C16$,C17$,C18$,,, , ,P3$,P4$
1330 PLAY C21$,C22$,C23$,C24$,,,P1$,P2$,P3$,P4$,P6$
1340 PLAY C25$,C26$,C27$,C28$,,,S1$,S2$,S3$,S4$,P6$
1350 PLAY C11$,C12$,C13$,C14$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
1360 PLAY C15$,C16$,C17$,C18$,A1E$,A1F$,P1$,Q2$,P3$,P4$,P6$
1370 PLAY C21$,C22$,C23$,C24$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
1380 PLAY C25$,C26$,C27$,C28$,A1G$,A1H$,S1$,S2$,S3$,P4$,P6$
1390 PLAY C25$,C26$,C27$,C28$,,,P4$,P6$
1400 PLAY C25$,C26$,C27$,C28$,,,P4$
1410 PLAY C21$,C22$,C23$,C24$
1420 PLAY C31$,C32$,C33$,C34$